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Require file for print symbiont facility 

i Version: *v04-000" 

i peeerererererererereeereeeeeeeeeneeeeeeeeeeeeeeeeeeeneteeeterereeeereeeerere 
! 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS he 4 FURNISHED wanes A_LICENSE AND MAY BE USED AND sor iee 
ANCE W THE TERMS OF SUCH C H_THE 


® 

® 

* 

® 

* 

is INCLUSION OF THE ABOV 0 F TWARE OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
it OTHER PERSON. NO TITLE TO AND OUNERSHIP OF THE SOFTWARE TS” HEREBY = 
ie TRANSFERRED. * 
& 

ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
® 

® 

® 

* 

® 

® 

w 

+ 


:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
' CORPORATION, 


tt DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


ROO RRE RARER EAAAEEEREEEAAAERERHEKEKEAEAEE eRe eeeeeeeeeeereeereeeeere 
‘ 


'e+ 
! FACILITY: : 
; Symbiont Services. 


i ABSTRACT: 
Macro and Literal definitions for symbionts. 


i AUTHOR: G. Robert, CREATION DATE: 01-May-1983 
i MODIFIED BY: 


' 

' 

! 

' 

i 

' 

! 

! 

' 

' 

‘ 38-007 RRB3007 Rowland R. Bradley 20-Jul-1984 
: Change PSM$_ messages NOMORE I TEMS. INVSTRLEV, and 
: INVSTMNBR to SMBS_NOMOREITEMS, SMBS_INVSTRLEV, and 
: SMB$_INSTRMNBR, respectively. Delete messages 
PSM$~INVSCB, PSMS_R GNOTSUP” "PSMS_INVREQCOD. 

! 

i 

! 

i 


3B-006 GRR3006 Gregory R. Robert 29-Apr-1984 
Added PSM$_FLUSH 


38-005 RRBOO14 Rowland R. Bradley 27-Apr-1984 
Remove the Task tt macro. 


38-004 RRBOO13 wland R. Orodiey 21-Feb-1984 
Add new STRUCTURE Get inition for PAGE. 
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<< 
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‘ 


| 

| 

38-003 GRR3004 Gregory R. Robert 23-Aug-1983 
Bugfixes, page_setup_modules, form_setup_ modules, 
sheet_feed, symbiont initiated pauSe_task and stop_stream, 


hangup code, read and write item services 


Fixed offset_table macro, added item_present macro, 


38-003 GRR3003 Gregory R. Robert 03-Aug-1983 
; Fixes for new design. 
: Added several macros to access symbiont tables. 
38-001 GRR3001 Gregory R. Robert 23-Jun-1983 


fixed some bugs, added several Literals. 


38-000 GRR3000 _ Gregory R. Robert 27-May-1983 
po Original version. 


' 
i 
! 
i 
! 3B-002 GRR3002 Gregory R. Robert 29-Jul-1983 
' 
' 


PSECT 


CODE = CODE, 
PLIT = CODE, 
OWN = DATA, 
GLOBAL = DATA 


: Check that structure id's have a common byteoffset 

SASSUME (SBYTEOFFSET (IOB_L_STRUCTURE), EQL, SBYTEOFFSET (PSM$L_STRUCTURE)) 
Check that a quadword of item code flags is adequate 

SASSUME (SMBMSGSK_MAX_ITEM_CODE - 1, LSS, 64) 


Delcare useful builtin Bliss functions 
BUILTIN 
C 


Define program section standard names and attributes 
! Declare special linkages 
} 


—— 


H 
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| 


——— — sumemantanas 
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| 


4 
pene 
ANALYZE_LINKAGE = JSB (REGISTER=0; REGISTER=0, REGISTER=1), 


ie CAN'T USE THIS UNTIL UNDERSTAND HOW TO PRESERVE R2-R4 INCLUSIVE 
FREE _LINKAGE = JSB (REGISTER=0) 


EXTERNAL ROUTINE 
BASSEDIT, 


LBRSCLOS 


LORSRET NaMsSTV, 
LBRSSET"LOCATE, 


LIBSTRIM_FILESPEC, 
LIBSGET 9M, 
LIBSFREE_VM, 


STRSANALYZE_SDESC, 
A ara aL SDESC_R1 : ANALYZE_LINKAGE, 


STRSFREET DX_R4 : FREE_LINKAGE, 


EXTERNAL LITERAL 
PSMS$S_HANGUP_DISPATCH_ENTRY 


Private messages 


EXTERNAL LITERAL 
coe BUF FEROVF, 


P F UNNOT SUP 
PSMS_ INVITMCOD, 


' Declare common external routines 
PSM$_ INVVMSOSC, 
| 


—_——— 


2 
| BAN 
v04 
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PSM$_MODNOTFND, 
PSMS “NE WPAGE 
PSms “NOFILEID 


w 
= 
wn 
‘o 
cme 
oO 
=" 


SMBS _ “NOMORE I TEMS 


DLOGICPC, SEVERE), - logic error with PC value 
= unable to close input 
NIN, . ! = unable to open or connect to input 
(READERR, ERROR) ~ 
(WRITEERR, ERRORS - 


“an 
oO 
c-> 
ov 
wr 
mm 
-_ 
2 
. 
m 
wm 
zz 
S 
Po] 
~ 
>. 
ee er | 


error reading 
error writing 


: Define structures useful for accessing parameters passed by reference 
STRUCTURE 


SBYTE $BYTE <0,0 
SSIGNED_BYTE 


$SIGNED Oarie “sh 08,1>, 


SWORD <0,16,0 
SS]GNED WORD <6, 16,1>, 


SLONGWORD <0,3 
$SIGNED Re ONSwORD wt 32,1> 


or 
ws 
“uw 


SST GNED_WORD £3 


SLONGWORD () 
SSIGNED_LONGWORD 


' 
! Define structures useful for referencing the ‘‘page’’ of information 


é1r UCTURE 
PAGE ARRAYCI, J, K; N, M, UNITS=1) = ! default is byte referencing 
TM * N ® UNITS) 


(PAGE_ARRAY + (J * K + I) * UNITS)<0,8,0> 
' 
Messaye Item Table (MIT) and Service Routine (SRV) table building macros 


MACRO 
MIT PRESET fTAG. RESET, TYPE, ITEM] = 
“('SMBMSGSK_'. ITEMS, MIT.B_TYPE]. = XNAME (‘MIT YPE) 
INANE (*SMBMSGSK-', ITEM), MITIVIRESET) = XIF ZNULL (RESET) | XTHEN 1 YELSE RESET FI, 
INAME ('SMBMSGSK—', ITEM), MITIW-OFFSETJ = 
SBYTEOFFSET (ZNAME ('PSMS',~TAG, *_', ITEM)) 


! Shared messages 
ésue ieee: V4 (PSM, PSMSK_FACILITY, LOCAL 
i 


——————— SSS ——— 


se | 
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SRV_PRESET_ CSERVICE, USER, TYPE) = 

CENAME(*PSMSK=') SERVICE), SRV_A_SERVICE) = 
ZNAME ("PSMS', SERVICES, 

CUNAME ("PSMSK_', SERVICE), SRV_V_USER_ALLOWED] = 
ZIF ZNULL TUSER) ZTHEN NO_USER 
XELSE USER FI 

CUNAME ("PSMSK_*, SERVICE), SRV_B_SERVICE_TYPE] = 
ZIF ZNULL TTYPE) ZTHEN SRV_R_GENERAL_SERVICE 

LSE ZNAME ('SRV_K_', TYPE,” *_SERVICE') 2F1 


: General purpose macros 


MACRO 
ACC_DATA_ (ITEM) = 
SBBLOCK CSCBCPSMST_ACCOUNTING_AREA], %NAME ("SMBMSGSL_', ITEM)] 


BLINK, (QUEUE HEADER) = 
VECTOR CQQEVE_HEADER, 1) 


CLEAR QUAD_ (QUAD) = 
BE 


N 
VECTOR CQUAD, 0] 
VECTOR CQUAD, 1] 
END 


oo 
. 


CLEAR_STRING_ (DESC) 
IF .DESC_CLASS_ (DESC) LEQU DSCS$K_CLASS.S ! 0 or 1 
INIT_DYN_DESC_ (DESC) 
IF .DESC_SIZE_ (DESC) NEQ 0 
STRSFREE1_DX (DESC) 


END 
x, 


CODEERR_ = a 
SIGNAL_STOP (PSM$_BADLOGICPC, 1) ! PC implied 3rd arg 


COPY _DX_DX_ (FROM DESC, TO_DESC) = 
SIGRAL"IF_ERROR_ (STRSTOPY_DX (TO_DESC, FROM_DESC)) 


COPY_R_DX_ (FROM SIZE, FROM_ADDRESS, TO_DESC) = 
SIGNAC_IF_ERROR_ (STRSCOPY_R (TO_DESC, FROM_SIZE, FROM_ADDRESS)) 


COPY QUAD_ (FROM_QUAD, TO_QUAD) = 
BEGIN 


| 
| SMBREQ.REQ; 1 
= VECTOR 
z, 
DECREMENT_ (VALUE) = 
BEGIN 
VALUE = .VALUE = 1; 
END 


| 
| 
| 


DESC_ADDR. ( 
atk f 


ESC) = 
SBBL DESC, DSCSA_POINTER] 


DESC_CLASS_ (DESC) = 
SBBLOCR CDESC, DSC$B_CLASS) 


DESC_SIZE_ (DESC) 
SBBLOtK CDESC, “pscsw LENGTH) 


° 


SDYNAMIC_DESC = 
SBBLOCK (8) PRESET ( 
ENGTH) 
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UAD, 9 = VECTOR ERO QUAD, 9}; 
AD, 1 


QUAD, 1); 


COSC$W_L = 0, 

COSC$B~DTY = DSC$K_DTYPE_T 
COSC$B~CLA = DSC$KICLASS~D. 
CDSCS$A~POINTER) = 0 


FLINK. (QUEUE_HEADER) = 
VECTOR CQDEUE_HEADER, 0) 


INCREMENT_ (VALUE) = 
BEGIN 
VALUE = .VALUE + 1 
END 
INIT PetneS- (DESC) = 
ENgi pRBBLOCK: 
DSCS$K_DTYPE_T 
ay 2S 


z, 
INIT QUEUE _HEADER_ (QUEUE_HEADER) = 
BEGIN 


ts : 
CSK_ CLASS~D: 


FLINK, (QUEUE _HEADER) = QUEUE _HEADER; 


BLINK- (QUEUE-HEADER) 


QUEUE = “HEADER: 


women 


” 
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END 

i, 
| INIT STAT. DESC_ (DESC, LENGTH, POINTER) = 
| IND X_DESC = DESC: $BBLOCK: 
DESC” COSC$W_L } = LENGTH; 
“DESC [DSC$B-D 
DESC CDSC$B-C 
DESC DSC$A-P 


Mm x< x x =< OO 
u m 


DER) 
INSQUE TENTRY_ABDR_, .FLINK_~ (QUEUE "HEADER)) 


INSERT TAIL. (ENTRY_ADDR_, QUEUE_HEADER) = 
INSQUE TENTRY_ADDR_,~.BLINK_~ (QUEUE _HEADER)) 


ITEM,PRESENT (ITEM. CODE) = 
BITVECTOR CSc BCPSMSO_ITEM_FLAGS), XNAME ('SMBMSGSK_', ITEM_CODE)] 


OFFSET TABLE_REPEAT_ COFFSET, FIRST_BIT, SIZE, SIGN) = 
OFFSET 


panene ven INDEX. () = 
UILTIN NULCPARAMET 
SU TERAL PARAMETER_ Tmax _REPEAT_ (XREMAINING) 


PARAMETER_ INDEX REPEAT. CPARAMETER] = 
XNAME~('_P_*, PARAMETER) = XCOUNT + 1 


° 


PARAMETER_PRESENT. (PARAM) = 
NOT NOLLPARAMETER (XZNAME ('_P_', PARAM)) 


PRINT_FLAG_ (FLAG 
SBBLOCR (SCBLPSMSL. “PRINT FLAGS], %NAME ('SMBMSG$V_', FLAG_NAME)] 


READ_CHAR_ = 
BEGIN 
DECREMENT_ (SCB_SIZE_ (INPUT_RECORD)) 
CHSACHAR_A (SCB-ADDR- (INPUT RECORD) ) 


REMOVE _HEAD_ (RESULT, QUEUE_HEADER) = 
REMQUE T.FLINK_ (QUEUE READER), RESULT) 


x, 
INSERT HEAD. (ENTRY ADDR_, QUEUE_HEAD 
| 


re] 


| 


- 
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REMOVE_TAIL_ (RESULT, QUEUE_HEADER) = 
REMQUE T.BLINK_ (QUEUE_READER), RESULT) 


REQUEST FLAG FLAG 
seBCOCK stb PSAs WREQUEST CONTROL], %NAME ('SMBMSG$V_", FLAG_NAME)] 


SEPARATE FLAG. (FLAG _NAM 
SBBLOCK CSCBCPSMSL ASEPARAT ION. CONTROL], %NAME (*SMBMSG$V_', FLAG_NAME)] 


ICE) = 
. PSMSL_SERVICE_LIST], %NAME ('PSM$K_", SERVICE)] 


RETURN_IF_ERROR_ (ACTION) = 
BEGIN 
LOCAL STATUS; 


STATUS = ACTION; 
IF NOT .STATUS THEN RETURN (.STATUS); 
. STATUS 


SET_DYN_DESC_ (DESC) = 
BEGIN 


$SBBLOCK CSCBCZNAME ('PSM$Q_', 
a CSCBLZNAME (*PSM$Q_', 


SIGNAL IF_ERROR_ (ACTION) = 
LOCAL STATUS: | 
STATUS = ACT 
IF NOT * thts NiMEN SIGNAL (.STATUS); 
. STATUS 

i, 

PSmSL_ = 0,0,32,0 


SCB_ADDR_ (DESC) 
“DESCADDR_ (SCB C 2NAME('PSM$Q_", DESC) J) 


SCB_CLASS (DESC) z 
“DESC_CLASS_ (SCB C %NAME('PSM$Q_', DESC) J) 


SCB [ %NAME("PSM$Q_', DESC) J) 


9 
_ 
nm 


eee een a 
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WRITE _CHAR_ (CHAR) = 
BEGIN 


CHSWCHAR_A (CHAR, SCB_ADDR_ (OUTPUT_BUFFER)); 
DECREMENT_ (SCB_SIZE_~(OUTPUT_BUFFER)); 


